﻿Public Class frmNewImage

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.SelectedItem = "Paintbear Standard Fill-Image" Then
            frmMain.drawBox.Width = 857
            frmMain.drawBox.Height = 611
            frmMain.Text = "[Untitled]-Fill-Image - Paintbear 0.9(bt09t)"
        Else
            frmMain.drawBox.Width = NumericUpDown1.Value
            frmMain.drawBox.Height = NumericUpDown2.Value
            frmMain.Text = "[Untitled]-" & NumericUpDown1.Value & "x" & NumericUpDown2.Value & " - Paintbear 0.9(bt09t)"
        End If
        Me.Close()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub
End Class